program zadacha_3_15;

var M,N,i,j,k:longint;
Pr:boolean;

BEGIN
writeln('Введите N <= M');
repeat
	write('N=');
	readln(N);
	write('M=');
	readln(M);
until (N>0) and (M>0) and (N<M);

k:=0; {Количество простых чисел.}

for i:=N to M do {Параметр i принимает значения от N до M.}
begin
	{Определение простого числа.}
	Pr:=true;
	for j:= 2 to i div 2 do
	if i mod j = 0 then
	begin
		Pr:=false;
	end;
	{Если число простое, увеличиваем количество на 1.}
	if Pr then
	K:=K+1;
end;

if k=0 then writeln('Простых чисел в диапазоне нет')
else writeln('Простых чисел в диапазоне ', k);
END.
